home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
pctchnqs
/
1992
/
number2
/
vbplay
/
form.txt
next >
Wrap
Text File
|
1992-03-24
|
1KB
|
63 lines
Sub Form_Load ()
'
' Initialize the sound system
'
status% = OpenSound()
Select Case status
Case S_SERDVNA
MsgBox ("Music already in use")
CloseSound
End
Case S_SEROFM
MsgBox ("Out of Memory")
CloseSound
End
End Select
'
' Initialize voice buffer and default conditions
'
status% = SetVoiceQueueSize(1, Q_BUFF_SIZE)
length% = 4
octave% = 3
mode% = S_NORMAL
temp% = 120
End Sub
Sub OnPlay_Timer ()
Static song$(5)
Static songptr%
'
' Initialize array first time through
'
If song$(1) = "" Then
song$(1) = "O4MLT135D6P60<B10GP64GP64GP56MNE8D8G8MLAMNF#8"
song$(2) = "MLGMNP32E8D8GE8D8GE8D8F#2.P16MLD8E8F#GMNA.P64"
song$(3) = "MLD8GAMNB.G8MLA8MNBMLG8A8MNBMLG8A2.P15>MND5"
song$(4) = "<B13GGMLGMNE8D8G8MLAP64MNF#8MLGP32MNF#8F8E
song$(5) = "G#8B8EBMLA2.MNP8D8D8MLG.P64F#8GP64BP64A.P64
song$(6) = "G#8P64AP17F#8P64D8P64E8GP60E7GP64F#P64G2.P6P6"
End If
'
' Make sure there are notes in the buffer
'
If CountVoiceNotes(1) < Q_THRESHHOLD Then
Play (song$(songptr% Mod 6 + 1))
songptr% = songptr% + 1
status% = StartSound()
End If
End Sub
Sub Form_Unload (Cancel As Integer)
CloseSound
End Sub
Sub Quit_Click ()
CloseSound: End
End Sub